home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •Games Parlour• / •Yahtzee• / Hyper Yahtzee 4.0 / Hyper Yahtzee 4.0 / background_2620.txt < prev    next >
Text File  |  1990-10-02  |  8KB  |  393 lines
  1. -- background: 2620 from stack: in.0
  2. -- bmap block id: 3254
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. ON showrightscore
  8.   set cursor to 4
  9.   set lockscreen to true
  10.   if hilite of bkgnd btn 8 then
  11.     hide field 3
  12.     hide field 4
  13.     show field 9
  14.     show field 10
  15.     put 1 into field 11
  16.   else
  17.     show field 3
  18.     show field 4
  19.     hide field 9
  20.     hide field 10
  21.     put 6 into field 11
  22.   end if
  23.   set lockscreen to false
  24. end showrightscore
  25.  
  26.  
  27.  
  28. -- part 17 (field)
  29. -- low flags: 01
  30. -- high flags: 2000
  31. -- rect: left=172 top=57 right=319 bottom=254
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 0 / 0
  34. -- text alignment: 1
  35. -- font id: 0
  36. -- text size: 12
  37. -- style flags: 0
  38. -- line height: 15
  39. -- part name: HUMAN SCORE
  40.  
  41.  
  42. -- part 18 (field)
  43. -- low flags: 01
  44. -- high flags: 2000
  45. -- rect: left=256 top=57 right=318 bottom=338
  46. -- title width / last selected line: 0
  47. -- icon id / first selected line: 0 / 0
  48. -- text alignment: 1
  49. -- font id: 0
  50. -- text size: 12
  51. -- style flags: 0
  52. -- line height: 15
  53. -- part name: MAC SCORE
  54.  
  55.  
  56. -- part 19 (field)
  57. -- low flags: 81
  58. -- high flags: 0000
  59. -- rect: left=361 top=219 right=332 bottom=475
  60. -- title width / last selected line: 0
  61. -- icon id / first selected line: 0 / 0
  62. -- text alignment: 0
  63. -- font id: 4
  64. -- text size: 9
  65. -- style flags: 0
  66. -- line height: 11
  67. -- part name: 
  68. ----- HyperTalk script -----
  69. ON MouseUp
  70.   beep 2
  71.   answer "Clear 6 Round Game High Scores?" with "Yes" or "No"
  72.   if it="Yes" then
  73.     put empty into field 3
  74.     put empty into field 4
  75.   end if
  76. end MouseUp
  77.  
  78.  
  79. -- part 20 (field)
  80. -- low flags: 81
  81. -- high flags: 0000
  82. -- rect: left=475 top=219 right=334 bottom=505
  83. -- title width / last selected line: 0
  84. -- icon id / first selected line: 0 / 0
  85. -- text alignment: 0
  86. -- font id: 4
  87. -- text size: 9
  88. -- style flags: 0
  89. -- line height: 11
  90. -- part name: 
  91. ----- HyperTalk script -----
  92. ON MouseUp
  93.   edit script of stack
  94.   send MouseUp to field 3
  95. end MouseUp
  96.  
  97.  
  98. -- part 21 (field)
  99. -- low flags: 01
  100. -- high flags: 0000
  101. -- rect: left=448 top=167 right=186 bottom=475
  102. -- title width / last selected line: 0
  103. -- icon id / first selected line: 0 / 0
  104. -- text alignment: 1
  105. -- font id: 0
  106. -- text size: 12
  107. -- style flags: 0
  108. -- line height: 16
  109. -- part name: 
  110.  
  111.  
  112. -- part 22 (field)
  113. -- low flags: 01
  114. -- high flags: 2000
  115. -- rect: left=172 top=312 right=333 bottom=254
  116. -- title width / last selected line: 0
  117. -- icon id / first selected line: 0 / 0
  118. -- text alignment: 1
  119. -- font id: 0
  120. -- text size: 12
  121. -- style flags: 0
  122. -- line height: 16
  123. -- part name: GAME SCORE
  124.  
  125.  
  126. -- part 23 (field)
  127. -- low flags: 01
  128. -- high flags: 2000
  129. -- rect: left=256 top=312 right=332 bottom=338
  130. -- title width / last selected line: 0
  131. -- icon id / first selected line: 0 / 0
  132. -- text alignment: 1
  133. -- font id: 0
  134. -- text size: 12
  135. -- style flags: 0
  136. -- line height: 16
  137. -- part name: MAC GAME SCORE
  138.  
  139.  
  140. -- part 24 (button)
  141. -- low flags: 00
  142. -- high flags: C006
  143. -- rect: left=412 top=51 right=69 bottom=502
  144. -- title width / last selected line: 0
  145. -- icon id / first selected line: 0 / 0
  146. -- text alignment: 1
  147. -- font id: 0
  148. -- text size: 12
  149. -- style flags: 0
  150. -- line height: 16
  151. -- part name: Human
  152. ----- HyperTalk script -----
  153. ON MouseUp
  154.   if the short name of btn 21<>"New Game" then
  155.     beep
  156.     answer "Cannot change until this game is over." with "OK"
  157.     exit MouseUp
  158.   end if
  159.   set hilite of me to true
  160.   set hilite of bkgnd btn 2 to false
  161. end MouseUp
  162.  
  163.  
  164.  
  165. -- part 25 (button)
  166. -- low flags: 00
  167. -- high flags: 8006
  168. -- rect: left=412 top=68 right=86 bottom=502
  169. -- title width / last selected line: 0
  170. -- icon id / first selected line: 0 / 0
  171. -- text alignment: 1
  172. -- font id: 0
  173. -- text size: 12
  174. -- style flags: 0
  175. -- line height: 16
  176. -- part name: Macintosh
  177. ----- HyperTalk script -----
  178. ON MouseUp
  179.   if the short name of btn 21<>"New Game" then
  180.     beep
  181.     answer "Cannot change until this game is over." with "OK"
  182.     exit MouseUp
  183.   end if
  184.   set hilite of me to true
  185.   set hilite of bkgnd btn 1 to false
  186. end MouseUp
  187.  
  188.  
  189.  
  190. -- part 26 (button)
  191. -- low flags: 00
  192. -- high flags: 8006
  193. -- rect: left=412 top=89 right=107 bottom=502
  194. -- title width / last selected line: 0
  195. -- icon id / first selected line: 0 / 0
  196. -- text alignment: 1
  197. -- font id: 0
  198. -- text size: 12
  199. -- style flags: 0
  200. -- line height: 16
  201. -- part name: Human
  202. ----- HyperTalk script -----
  203. ON MouseUp
  204.   if the short name of btn 21<>"New Game" then
  205.     beep
  206.     answer "Cannot change until this game is over." with "OK"
  207.     exit MouseUp
  208.   end if
  209.   set hilite of me to true
  210.   set hilite of bkgnd btn 4 to false
  211. end MouseUp
  212.  
  213.  
  214.  
  215. -- part 27 (button)
  216. -- low flags: 00
  217. -- high flags: C006
  218. -- rect: left=412 top=106 right=124 bottom=502
  219. -- title width / last selected line: 0
  220. -- icon id / first selected line: 0 / 0
  221. -- text alignment: 1
  222. -- font id: 0
  223. -- text size: 12
  224. -- style flags: 0
  225. -- line height: 16
  226. -- part name: Macintosh
  227. ----- HyperTalk script -----
  228. ON MouseUp
  229.   if the short name of btn 21<>"New Game" then
  230.     beep
  231.     answer "Cannot change until this game is over." with "OK"
  232.     exit MouseUp
  233.   end if
  234.   set hilite of me to true
  235.   set hilite of bkgnd btn 3 to false
  236. end MouseUp
  237.  
  238.  
  239.  
  240. -- part 32 (button)
  241. -- low flags: 00
  242. -- high flags: 8000
  243. -- rect: left=172 top=44 right=56 bottom=254
  244. -- title width / last selected line: 0
  245. -- icon id / first selected line: 0 / 0
  246. -- text alignment: 1
  247. -- font id: 0
  248. -- text size: 12
  249. -- style flags: 8192
  250. -- line height: 16
  251. -- part name: Human
  252.  
  253.  
  254. -- part 33 (button)
  255. -- low flags: 00
  256. -- high flags: C000
  257. -- rect: left=256 top=44 right=56 bottom=338
  258. -- title width / last selected line: 0
  259. -- icon id / first selected line: 0 / 0
  260. -- text alignment: 1
  261. -- font id: 0
  262. -- text size: 12
  263. -- style flags: 8192
  264. -- line height: 16
  265. -- part name: Macintosh
  266.  
  267.  
  268. -- part 34 (field)
  269. -- low flags: 81
  270. -- high flags: 2000
  271. -- rect: left=448 top=159 right=178 bottom=476
  272. -- title width / last selected line: 0
  273. -- icon id / first selected line: 0 / 0
  274. -- text alignment: 0
  275. -- font id: 0
  276. -- text size: 12
  277. -- style flags: 0
  278. -- line height: 16
  279. -- part name: Whosgo
  280.  
  281.  
  282. -- part 35 (field)
  283. -- low flags: 01
  284. -- high flags: 0000
  285. -- rect: left=361 top=219 right=332 bottom=475
  286. -- title width / last selected line: 0
  287. -- icon id / first selected line: 0 / 0
  288. -- text alignment: 0
  289. -- font id: 4
  290. -- text size: 9
  291. -- style flags: 0
  292. -- line height: 11
  293. -- part name: 
  294. ----- HyperTalk script -----
  295. ON MouseUp
  296.   beep 2
  297.   answer "Clear 1 Round Game High Scores?" with "Yes" or "No"
  298.   if it="Yes" then
  299.     put empty into field 9
  300.     put empty into field 10
  301.   end if
  302. end MouseUp
  303.  
  304.  
  305. -- part 38 (field)
  306. -- low flags: 01
  307. -- high flags: 0000
  308. -- rect: left=475 top=219 right=334 bottom=505
  309. -- title width / last selected line: 0
  310. -- icon id / first selected line: 0 / 0
  311. -- text alignment: 0
  312. -- font id: 4
  313. -- text size: 9
  314. -- style flags: 0
  315. -- line height: 11
  316. -- part name: 
  317. ----- HyperTalk script -----
  318. ON MouseUp
  319.   click at loc of field 3
  320. end MouseUp
  321.  
  322.  
  323. -- part 39 (button)
  324. -- low flags: 00
  325. -- high flags: 8006
  326. -- rect: left=412 top=144 right=162 bottom=502
  327. -- title width / last selected line: 0
  328. -- icon id / first selected line: 0 / 0
  329. -- text alignment: 1
  330. -- font id: 0
  331. -- text size: 12
  332. -- style flags: 0
  333. -- line height: 16
  334. -- part name: 6 Rounds
  335. ----- HyperTalk script -----
  336. ON MouseUp
  337.   if not hilite of me then
  338.     if the short name of btn 21<>"New Game" then
  339.       beep
  340.       answer "Cannot change until this game is over." with "OK"
  341.       exit MouseUp
  342.     end if
  343.     set hilite of me to true
  344.     set hilite of bkgnd btn 8 to false
  345.     showrightscore
  346.     set the name of btn 39 to "6 Round Game"
  347.   end if
  348. end MouseUp
  349.  
  350.  
  351.  
  352. -- part 40 (button)
  353. -- low flags: 00
  354. -- high flags: C006
  355. -- rect: left=412 top=127 right=145 bottom=502
  356. -- title width / last selected line: 0
  357. -- icon id / first selected line: 0 / 0
  358. -- text alignment: 1
  359. -- font id: 0
  360. -- text size: 12
  361. -- style flags: 0
  362. -- line height: 16
  363. -- part name: 1 Round
  364. ----- HyperTalk script -----
  365. ON MouseUp
  366.   if not hilite of me then
  367.     if the short name of btn 21<>"New Game" then
  368.       beep
  369.       answer "Cannot change until this game is over." with "OK"
  370.       exit MouseUp
  371.     end if
  372.     set hilite of me to true
  373.     set hilite of bkgnd btn 7 to false
  374.     showrightscore
  375.     set the name of btn 39 to "1 Round Game"
  376.   end if
  377. end MouseUp
  378.  
  379.  
  380.  
  381. -- part 41 (field)
  382. -- low flags: 01
  383. -- high flags: 0000
  384. -- rect: left=480 top=167 right=186 bottom=507
  385. -- title width / last selected line: 0
  386. -- icon id / first selected line: 0 / 0
  387. -- text alignment: 1
  388. -- font id: 0
  389. -- text size: 12
  390. -- style flags: 0
  391. -- line height: 16
  392. -- part name: 
  393.